--- title: R Assignment - Question 4 and Question 5 author: Yang Xu date: '2021-07-25' slug: r-assignment-question-3-and-question-4 categories: [] tags: [] ---
These security personnels do not have much interactions other than the midnight events. Perhaps they were monitoring the executives’ night movements.
#3am
gps_sf <- st_as_sf(gps,
coords = c("long", "lat"),
crs = 4326)
gps_path_selected <- gps_sf %>%
st_as_sf() %>%
filter(period == c("midnight"))
tmap_mode("view")
tm_shape(ap) +
tm_rgb(ap, r = 1, g = 2, b = 3,
alpha = NA,
saturation = 1,
interpolate = TRUE,
max.value = 255) +
tm_shape(gps_path_selected) +
tm_dots(col = 'id', size = 0.05)
car ID 31 -Sten Sanjorge, the CEO only joined them on 19th.
Everyone spent over 100 dollars on 19th.
Elsa Orilla and Brand Tempestad visited hotel during midday during lunch hours on 8th, 10th, 14th and 17th. They paid their bills separately.
For Car ID 1, which is drove by Nils Calixto. The very few transactions at at Autosupply and U-Pump and Daily Dealz were on his records.
On 13th, he stayed at Hippokampos until 135pm. However, there was a transaction record at 118pm at U-Pump. Without driving a car, it is suspicious why there was a transcation done at place far from the eatery.